(******************************************************************************)
(**)                        ОТДЕЛ ЧислоПи+;
(******************************************************************************)
(* НАЗНАЧЕНИЕ: приближенное вычисление числа "Пи"                             *)
(* АЛГОРИТМ:                                                                  *)
(*   Пи/4 = 1 - 1/3 + 1/5 - 1/7 + ... (медленная сходимость)                  *)
(******************************************************************************)
ИСПОЛЬЗУЕТ 
  Вывод ИЗ "...\Отделы\Обмен\",
  Матем ИЗ "...\Отделы\Числа\";

ПОСТ
  ТОЧНОСТЬ=1.E-6; (* приблизительно *)

(******************************************************************************)
ЗАДАЧА Голова;
(* Расчёт по алгоритму и вывод ответа на экран *)
ПЕР
  сумма,слагаемое:ВЕЩ;
  знаменатель,знак:ЦЕЛ;
УКАЗ
  Вывод.Цепь("^Расчёт суммы: 1 - 1/3 + 1/5 - 1/7 + ... ");
  сумма:=0;
  знаменатель:=1;
  знак:=1;
  ПОВТОРЯТЬ
    слагаемое:=знак/знаменатель;
    сумма:=сумма + слагаемое;
    УВЕЛИЧИТЬ(знаменатель,2);
    знак:=-знак
  ДО МОДУЛЬ(слагаемое) < ТОЧНОСТЬ;
  Вывод.ЧВещ("(%d слагаемых)^^   %g сумма*4^   %g ПИ^       %g arctg(1)*4^",
              знаменатель/2, сумма*4,   Матем.ПИ, Матем.arctg(1)*4)
КОН Голова;

УКАЗ
  Голова
КОН ЧислоПи.

▲ Вопросы, замечания и предложения высылайте на atimopheyev@yahoo.com или Издателю Глагола: